home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / T2W16910.ZIP / T2WIN-16.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-01-16  |  82.8 KB  |  1,165 lines

  1. Attribute VB_Name = "T2WIN_16_DEF"
  2. Option Explicit
  3.  
  4. ' definition for win.ini section
  5. Global Const GET_TIME_SEPARATOR = 1
  6. Global Const GET_DATE_SEPARATOR = 2
  7. Global Const GET_TIME_FORMAT = 3
  8. Global Const GET_DATE_FORMAT = 4
  9. Global Const GET_CURRENCY = 5
  10. Global Const GET_LANGUAGE = 6
  11. Global Const GET_COUNTRY = 7
  12. Global Const GET_COUNTRY_CODE = 8
  13. Global Const GET_LIST_SEPARATOR = 9
  14. Global Const GET_DEFAULT_PRINTER = 10
  15.  
  16. ' definition for drive type
  17. Global Const DRIVE_UNKNOW = 0
  18. Global Const DRIVE_REMOVABLE = 2
  19. Global Const DRIVE_FIXED = 3
  20. Global Const DRIVE_REMOTE = 4
  21. Global Const DRIVE_CDROM = 20
  22.  
  23. ' definition for file attributes
  24. Global Const A_NORMAL = &H0             'Normal file - No read/write restrictions
  25. Global Const A_RDONLY = &H1             'Read only file
  26. Global Const A_HIDDEN = &H2             'Hidden file
  27. Global Const A_SYSTEM = &H4             'System file
  28. Global Const A_VOLID = &H8              'Volume ID file
  29. Global Const A_SUBDIR = &H10            'Subdirectory
  30. Global Const A_ARCH = &H20              'Archive file
  31. Global Const A_ARCHIVE = &H20           'Archive file
  32. Global Const A_NORMAL_ARCHIVE = &HFE    'Normal, Archive
  33. Global Const A_ALL = &HFF               'Normal, Archive, Read-Only, Hidden, System
  34.  
  35. ' definition for encrypt/decrypt
  36. Global Const ENCRYPT_LEVEL_0 = 0
  37. Global Const ENCRYPT_LEVEL_1 = 1
  38. Global Const ENCRYPT_LEVEL_2 = 2
  39. Global Const ENCRYPT_LEVEL_3 = 3
  40. Global Const ENCRYPT_LEVEL_4 = 4
  41.  
  42. Global Const CRYPTO_KEY_TOO_SMALL = -1
  43. Global Const CRYPTO_CANT_INIT_KEY = -2
  44. Global Const CRYPTO_CANT_INIT_BUFFER = -11
  45. Global Const CRYPTO_CANT_OPEN_FILEIN = -21
  46. Global Const CRYPTO_CANT_CREATE_FILEOUT = -22
  47. Global Const CRYPTO_ERROR_READING_FILEIN = -31
  48. Global Const CRYPTO_ERROR1_WRITING_FILEOUT = -41
  49. Global Const CRYPTO_ERROR2_WRITING_FILEOUT = -42
  50. Global Const CRYPTO_ERROR1_WRITING_LASTBYTE = -51
  51. Global Const CRYPTO_ERROR2_WRITING_LASTBYTE = -52
  52. Global Const CRYPTO_BAD_LASTBYTE = -61
  53.  
  54. Global Const RUBY_MODE_MINIMUM = 1           ' speed is of the essence, security secondary.
  55. Global Const RUBY_MODE_DESK_LOCK = 2         ' reasonable compromise of speed vs security.
  56. Global Const RUBY_MODE_DEAD_BOLT = 4         ' default = probably good enough for most things.
  57. Global Const RUBY_MODE_PORTABLE_SAFE = 5     ' security is more important than speed.
  58. Global Const RUBY_MODE_ANCHORED_SAFE = 8     ' speed isn't much of a concern.
  59. Global Const RUBY_MODE_BANK_VAULT = 10       ' your pentium has nothing better to do, anyway.
  60. Global Const RUBY_MODE_FORT_KNOX = 16        ' be cool.
  61.  
  62. ' definition for FILECRC32
  63. Global Const OPEN_MODE_BINARY = 0
  64. Global Const OPEN_MODE_TEXT = 1
  65.  
  66. ' definition for ARRAYONDISK
  67. Global Const PUT_ARRAY_ON_DISK = 0
  68. Global Const GET_ARRAY_ON_DISK = 1
  69.  
  70. ' definition for big numbers
  71. Global Const BIG_ADD = 0
  72. Global Const BIG_SUB = 1
  73. Global Const BIG_MUL = 2
  74.  
  75. ' definition for file version information
  76. Global Const VER_VERSION_PRODUCT = -1
  77. Global Const VER_VERSION_FILE = 0
  78. Global Const VER_COMPANY_NAME = 1
  79. Global Const VER_FILE_DESCRIPTION = 2
  80. Global Const VER_FILE_VERSION = 3
  81. Global Const VER_INTERNAL_NAME = 4
  82. Global Const VER_LEGAL_COPYRIGHT = 5
  83. Global Const VER_LEGAL_TRADEMARKS = 6
  84. Global Const VER_PRODUCT_NAME = 7
  85. Global Const VER_PRODUCT_VERSION = 8
  86.  
  87. ' definition for language in multi-language management
  88. Global Const LNG_FRENCH = 1
  89. Global Const LNG_DUTCH = 2
  90. Global Const LNG_GERMAN = 3
  91. Global Const LNG_ENGLISH = 4
  92. Global Const LNG_ITALIAN = 5
  93. Global Const LNG_SPANISH = 6
  94. Global Const LNG_CATALAN = 7
  95. Global Const LNG_POLISH = 8
  96. Global Const LNG_NORVEGIAN = 9
  97.  
  98. ' definition for message position in multi-language message box
  99. Global Const MB_MESSAGE_LEFT = 0
  100. Global Const MB_MESSAGE_CENTER = 8192
  101. Global Const MB_MESSAGE_RIGHT = 16384
  102.  
  103. ' definition for timeout management in multi-language message box
  104. Global Const MB_TIMEOUT_2 = 32768
  105. Global Const MB_TIMEOUT_4 = 2 * MB_TIMEOUT_2
  106. Global Const MB_TIMEOUT_8 = 2 * MB_TIMEOUT_4
  107. Global Const MB_TIMEOUT_16 = 2 * MB_TIMEOUT_8
  108.  
  109. Global Const MB_TIMEOUT_6 = MB_TIMEOUT_2 Or MB_TIMEOUT_4
  110. Global Const MB_TIMEOUT_10 = MB_TIMEOUT_2 Or MB_TIMEOUT_8
  111. Global Const MB_TIMEOUT_12 = MB_TIMEOUT_4 Or MB_TIMEOUT_8
  112. Global Const MB_TIMEOUT_14 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8
  113. Global Const MB_TIMEOUT_18 = MB_TIMEOUT_2 Or MB_TIMEOUT_16
  114. Global Const MB_TIMEOUT_20 = MB_TIMEOUT_4 Or MB_TIMEOUT_16
  115. Global Const MB_TIMEOUT_22 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_16
  116. Global Const MB_TIMEOUT_24 = MB_TIMEOUT_8 Or MB_TIMEOUT_16
  117. Global Const MB_TIMEOUT_26 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  118. Global Const MB_TIMEOUT_28 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  119. Global Const MB_TIMEOUT_30 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  120.  
  121. Global Const MB_DISPLAY_TIMEOUT = 524288
  122.  
  123. ' definition for properties for language management
  124. Global Const RS_CAPTION = 1
  125. Global Const RS_TEXT = 2
  126. Global Const RS_DATAFIELD = 4
  127. Global Const RS_DATASOURCE = 8
  128. Global Const RS_TAG = 16
  129. Global Const RS_MENU = 32
  130. Global Const RS_ALL = 255
  131.  
  132. ' definition for accessing methods in OBJECT controls (ocx)
  133. Global Const OBJ_MTD_CLEAR = 0
  134.  
  135. ' definition for accessing properties in OBJECT controls (ocx or vbx)
  136. Global Const OBJ_CAPTION = 0
  137. Global Const OBJ_CLASS = 1
  138. Global Const OBJ_CONTAINER = 2
  139. Global Const OBJ_DATAFIELD = 3
  140. Global Const OBJ_FORM = 4
  141. Global Const OBJ_INDEX = 5
  142. Global Const OBJ_NAME = 6
  143. Global Const OBJ_NAMEINDEX = 7
  144. Global Const OBJ_TAG = 8
  145. Global Const OBJ_TEXT = 9
  146.  
  147. ' definition for error type for PATTERNMATCHEXT
  148. Global Const MATCH_HEXA = 17
  149. Global Const MATCH_INTERNAL_ERROR = 16
  150. Global Const MATCH_PATTERN = 15
  151. Global Const MATCH_LITERAL = 14
  152. Global Const MATCH_RANGE = 13
  153. Global Const MATCH_ABORT = 12
  154. Global Const MATCH_END = 11
  155. Global Const MATCH_VALID = -1
  156.  
  157. Global Const PATTERN_VALID = 0
  158. Global Const PATTERN_INVALID = 1
  159. Global Const PATTERN_ESC = 2
  160. Global Const PATTERN_RANGE = 3
  161. Global Const PATTERN_CLOSE = 4
  162. Global Const PATTERN_EMPTY = 5
  163. Global Const PATTERN_INTERNAL_ERROR = 6
  164. Global Const PATTERN_HEXA = 7
  165.  
  166. ' definition for error type for ISFILENAMEVALID
  167. Global Const IFV_ERROR = 0
  168. Global Const IFV_NAME_TOO_LONG = 1
  169. Global Const IFV_EXT_TOO_LONG = 2
  170. Global Const IFV_TOO_MANY_BACKSLASH = 3
  171. Global Const IFV_BAD_DRIVE_LETTER = 4
  172. Global Const IFV_BAD_COLON_POS = 5
  173. Global Const IFV_EXT_WITHOUT_NAME = 6
  174.  
  175. ' definition for variable type in DISK ARRAY
  176. Global Const DA_BYTE = 1
  177. Global Const DA_TYPE = 0
  178. Global Const DA_INTEGER = -2
  179. Global Const DA_LONG = -3
  180. Global Const DA_SINGLE = -4
  181. Global Const DA_DOUBLE = -5
  182. Global Const DA_CURRENCY = -6
  183.  
  184. ' definition for error type in DISK ARRAY
  185. Global Const DA_NO_ERROR = True
  186. Global Const DA_EMPTY_FILENAME = 1
  187. Global Const DA_BAD_FILENAME = 2
  188. Global Const DA_CAN_KILL_FILE = 3
  189. Global Const DA_CAN_NOT_OPEN_FILE = 4
  190. Global Const DA_FILE_NOT_FOUND = 5
  191. Global Const DA_BAD_TYPE = 6
  192. Global Const DA_BAD_ROWS = 7
  193. Global Const DA_BAD_COLS = 8
  194. Global Const DA_BAD_SHEETS = 9
  195. Global Const DA_CAN_NOT_WRITE_HEADER = 10
  196. Global Const DA_CAN_NOT_WRITE_PART = 11
  197. Global Const DA_CAN_NOT_WRITE_REMAIN = 12
  198. Global Const DA_CAN_NOT_READ_HEADER = 13
  199. Global Const DA_HEADER_SIZE = 14
  200. Global Const DA_BAD_SIGNATURE = 15
  201. Global Const DA_FILE_SIZE_MISMATCH = 16
  202. Global Const DA_CAN_NOT_SEEK = 17
  203. Global Const DA_INVALID_HANDLE = 18
  204. Global Const DA_CAN_NOT_READ_PART = 19
  205. Global Const DA_CAN_NOT_READ_REMAIN = 20
  206.  
  207. ' definition for error type in HUGE MEMORY ARRAY
  208. Global Const HMA_NO_ERROR = True
  209. Global Const HMA_NO_MEMORY = 1
  210. Global Const HMA_BAD_TYPE = 2
  211. Global Const HMA_BAD_ROWS = 3
  212. Global Const HMA_BAD_COLS = 4
  213. Global Const HMA_BAD_SHEETS = 5
  214. Global Const HMA_INVALID_HANDLE = 6
  215.  
  216. ' definition for error type in SERIAL DATA
  217. Global Const SD_SERIAL_NOT_FOUND = 1
  218. Global Const SD_CAN_NOT_OPEN_FILE = 2
  219.  
  220. ' definition for File I/O
  221. Global Const EOFILE = -1
  222. Global Const SEEK_CUR = 1
  223. Global Const SEEK_END = 2
  224. Global Const SEEK_SET = 0
  225.  
  226. ' definition for file sort
  227. Global Const SORT_ASCENDING = 1
  228. Global Const SORT_DESCENDING = 2
  229. Global Const SORT_CASE_SENSITIVE = 4
  230. Global Const SORT_CASE_INSENSITIVE = 8
  231.  
  232. ' definition for compress/expand
  233. Global Const LZH_ENCODE = True
  234. Global Const LZH_DECODE = False
  235.  
  236. ' definition for PROPERNAME2
  237. Global Const PN_UPPERCASE = 1
  238. Global Const PN_PUNCTUATION = 2
  239. Global Const PN_KEEP_ORIGINAL = 4
  240. Global Const PN_ONLY_LEADER_SPACE = 8
  241.  
  242. ' definition for matrix fill
  243. Global Const MATRIX_ZERO = 0
  244. Global Const MATRIX_UNIT = 1
  245.  
  246. ' definition for FX picture
  247. Global Const FX_HORIZONTAL = 1
  248. Global Const FX_VERTICAL = 2
  249. Global Const FX_DIAGONAL_SQUARE = 3
  250. Global Const FX_RECTANGLE = 4
  251.  
  252. ' definition for error type for SplitFile
  253. Global Const SPLIT_BAD_PARTSIZE = -1
  254. Global Const SPLIT_BAD_SOURCE_FILENAME = -2
  255. Global Const SPLIT_BAD_TARGET_FILENAME = -3
  256. Global Const SPLIT_CANT_OPEN_SOURCE = -4
  257. Global Const SPLIT_CANT_CREATE_TARGET = -5
  258.  
  259. ' definition for error type for CutFile
  260. Global Const CUT_BAD_POSITION = -1
  261. Global Const CUT_BAD_SOURCE_FILENAME = -2
  262. Global Const CUT_BAD_TARGET1_FILENAME = -3
  263. Global Const CUT_BAD_TARGET2_FILENAME = -4
  264. Global Const CUT_POSITION_TOO_BIG = -5
  265. Global Const CUT_CANT_OPEN_SOURCE = -6
  266. Global Const CUT_CANT_CREATE_TARGET1 = -7
  267. Global Const CUT_CANT_CREATE_TARGET2 = -8
  268.  
  269. ' definition for error type for FileMergeExt
  270. Global Const FILE_MERGE_NO_ERROR = -1
  271. Global Const FILE_MERGE_EMPTY_TARGET_FILENAME = -2
  272. Global Const FILE_MERGE_EMPTY_BAD_TARGET_FILENAME = -3
  273. Global Const FILE_MERGE_CANT_SET_FILE_BUFFER = -4
  274. Global Const FILE_MERGE_CANT_CREATE_TARGET_FILE = -5
  275. Global Const FILE_MERGE_ERROR_READING_FILE = -6
  276. Global Const FILE_MERGE_ERROR_WRITING_FILE = -7
  277. Global Const FILE_MERGE_ERROR_BAD_WRITE = -8
  278. Global Const FILE_MERGE_BAD_FILE_AT_POSITION = -10
  279.  
  280. ' structure for splittin path
  281. Type tagSPLITPATH
  282.    nDrive            As String
  283.    nDir              As String
  284.    nName             As String
  285.    nExt              As String
  286. End Type
  287.  
  288. ' structure for file version information
  289. Type tagFILEVERSIONINFO
  290.    VersionProduct    As String
  291.    VersionFile       As String
  292.    CompanyName       As String
  293.    FileDescription   As String
  294.    FileVersion       As String
  295.    InternalName      As String
  296.    LegalCopyright    As String
  297.    LegalTrademarks   As String
  298.    Comments          As String
  299.    ProductName       As String
  300.    ProductVersion    As String
  301. End Type
  302.  
  303. ' structure for file attributes
  304. Type FileAttributeType
  305.    ErrNo             As Integer
  306.    Archive           As Integer
  307.    Hidden            As Integer
  308.    Normal            As Integer
  309.    ReadOnly          As Integer
  310.    SubDir            As Integer
  311.    System            As Integer
  312.    VolId             As Integer
  313. End Type
  314.  
  315. ' structure for VB array
  316. Type ArrayType
  317.    Bounds            As Long
  318.    LBound            As Integer
  319.    UBound            As Integer
  320.    ElemSize          As Integer
  321.    IndexCount        As Integer
  322.    TotalElem         As Integer
  323. End Type
  324.  
  325. ' structure for modules
  326. Type tagMODULEENTRY
  327.    dwSize            As Long
  328.    szModule          As String * 10
  329.    hModule           As Integer
  330.    wcUsage           As Integer
  331.    szExePath         As String * 256
  332.    wNext             As Integer
  333. End Type
  334.  
  335. ' structure for tasks
  336. Type tagTASKENTRY
  337.    dwSize            As Long
  338.    hTask             As Integer
  339.    hTaskParent       As Integer
  340.    hInst             As Integer
  341.    hModule           As Integer
  342.    wSS               As Integer
  343.    wSP               As Integer
  344.    wStackTop         As Integer
  345.    wStackMinimum     As Integer
  346.    wStackBottom      As Integer
  347.    wcEvents          As Integer
  348.    hQueue            As Integer
  349.    szModule          As String * 10
  350.    wPSPOffset        As Integer
  351.    hNext             As Integer
  352. End Type
  353.  
  354. ' structure for disk array
  355. Type tagDISKARRAY
  356.    daSize            As Integer           'size of the type'd
  357.    signature         As String * 7        'signature
  358.    nFilename         As String * 64       'name of the file
  359.    nType             As Integer           'variable type
  360.    nRows             As Long              'number of rows
  361.    nCols             As Long              'number of cols
  362.    nSheets           As Long              'number of sheets
  363.    rHandle           As Integer           'returned handle for use with other functions
  364.    rElementSize      As Integer           'returned size of a element
  365.    rFileSize         As Long              'returned size of the file
  366.    rParts            As Long              'returned total part
  367.    rRemain           As Long              'returned size of the remain part
  368.    rSheetSize        As Long              'size of a sheet
  369.    rOffset1          As Long              'returned offset 1
  370.    rOffset2          As Long              'returned offset 2
  371.    rTime             As Long              'time for the last correct transaction
  372.    nIsTyped          As Integer           'is nType a type'd variable
  373.    Dummy             As String * 7        'reserved for future use
  374. End Type
  375.  
  376. ' structure for multiple disk array
  377. Type tagMULTIPLEDISKARRAY
  378.    daSize               As Integer        'size of the structure
  379.    signature            As String * 7     'signature
  380.    nFilename            As String * 64    'name of the file
  381.    nType(1 To 20)       As Integer        'standard variable type (for 20 arrays)
  382.    nIsTyped(1 To 20)    As Integer        'is a type'd (for 20 arrays)
  383.    nRows(1 To 20)       As Long           'number of rows (for 20 arrays)
  384.    nCols(1 To 20)       As Long           'number of cols (for 20 arrays)
  385.    nSheets(1 To 20)     As Long           'number of sheets (for 20 arrays)
  386.    rHandle              As Integer        'returned handle for use with other functions
  387.    rFileSize            As Long           'returned size of the file
  388.    rElementSz(1 To 20)  As Integer        'returned size of a element (for 20 arrays)
  389.    rSheetSz(1 To 20)    As Long           'size of a sheet (for 20 arrays)
  390.    rOffsetPos(1 To 20)  As Long           'position of each array in the file (for 20 arrays)
  391.    rOffset1             As Long           'returned offset 1
  392.    rOffset2             As Long           'returned offset 2
  393.    rTime                As Long           'time for the last correct transaction
  394.    Dummy                As String * 29    'reserved for future use
  395. End Type
  396.  
  397. ' structure for huge memory array
  398. Type tagHMA
  399.    daSize            As Integer           'size of the type'd
  400.    nType             As Integer           'variable type
  401.    nRows             As Long              'number of rows
  402.    nCols             As Long              'number of cols
  403.    nSheets           As Long              'number of sheets
  404.    rHandle           As Integer           'returned handle for use with other functions
  405.    rElementSize      As Long              'returned size of a element
  406.    rMemorySize       As Long              'returned size of the memory used
  407.    rParts            As Long              'returned total part
  408.    rRemain           As Long              'returned size of the remain part
  409.    rSheetSize        As Long              'size of a sheet
  410.    rOffset           As Long              'returned offset
  411.    nIsTyped          As Integer           'is nType a type'd variable
  412.    Dummy             As String * 20       'reserved for future use
  413. End Type
  414.  
  415. ' structure for serialization
  416. Type tagSERIALDATA
  417.    Description1      As String * 50       'serialization description 1
  418.    Description2      As String * 50       'serialization description 2
  419.    Number            As Long              'serialization number
  420.    Dummy             As String * 50       'reserved for future use
  421. End Type
  422.  
  423. ' structure for 2-D geometry types
  424. Type tagVECTOR2
  425.    x                 As Double
  426.    y                 As Double
  427. End Type
  428.  
  429. ' structure for 3-D geometry types
  430. Type tagVECTOR3
  431.    x                 As Double
  432.    y                 As Double
  433.    z                 As Double
  434. End Type
  435.  
  436. ' structure for get/set Media ID
  437. Type tagMEDIAID
  438.    InfoLevel         As Integer
  439.    SerialNumber      As Long
  440.    VolLabel          As String * 11
  441.    FileSysType       As String * 8
  442. End Type
  443.  
  444. ' structure for Get Control Rectangle
  445. Type tagRECT
  446.    Left              As Integer
  447.    Top               As Integer
  448.    Right             As Integer
  449.    Bottom            As Integer
  450. End Type
  451.  
  452. ' structure for 3D-Meter
  453. Type tag3DMeter
  454.    CrtValue          As Long              'current value
  455.    MaxValue          As Long              'maximum value
  456.    BackColor         As Long
  457.    ForeColor         As Long
  458.    Polygon           As Integer           '0  : rectangle, 1 : triangle, 2 : trapezium, 3 : ellipse , 4 : bars
  459.    BarSize           As Integer           'size of a bar (polygon = 4) (in pixel : min=1,max=20,default=10)
  460.    SpaceBars         As Integer           'space between bars (polygon = 4) (in pixel : min=1,max=4,default=2)
  461.    Direction         As Integer           '0  : horizontal, other : vertical
  462.    ThreeD            As Integer           '-1 : indented, 1 : raised
  463.    Thickness         As Integer
  464.    Percent           As Integer           'internal use, do not change
  465.    OldPolygon        As Integer           'internal use, do not change
  466.    OldDirection      As Integer           'internal use, do not change
  467.    OldThreeD         As Integer           'internal use, do not change
  468.    HatchBrush        As Integer           '-1 : solid brush, 0 : hor., 1 : ver., 2 : downward diag., 3 : upward diag., 4 : cross, 5 : diag.cross
  469. End Type
  470.  
  471. ' structure for File Information
  472. Type tagFILEINFO
  473.    fSize             As Long              'size of the file
  474.    fDate             As Long              'date of the file (scalar date)
  475.    fTime             As Long              'time of the file (scalar time)
  476.    fAttribute        As Integer           'attribute of the file
  477. End Type
  478.    
  479. Rem Don't Remove It
  480. Declare Sub c3D Lib "t2win-16.dll" (ByVal Ctl As Control, ByVal Method As Integer, ByVal Thickness As Integer)
  481. Declare Sub c3DMeter Lib "t2win-16.dll" (ByVal Ctl As Control, Meter As tag3DMeter)
  482. Declare Function cAddD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double) As Integer
  483. Declare Function cAddDigit Lib "t2win-16.dll" (Txt As String) As Integer
  484. Declare Function cAddI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  485. Declare Function cAddL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long) As Integer
  486. Declare Function cAddS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single) As Integer
  487. Declare Function cAddTime Lib "t2win-16.dll" (ByVal Hr As Integer) As Integer
  488. Declare Function cAddTwoTimes Lib "t2win-16.dll" (ByVal Time1 As String, ByVal Time2 As String) As String
  489. Declare Function cAlign Lib "t2win-16.dll" (Txt As String, ByVal TypeAlign As Integer, ByVal NewLength As Integer) As String
  490. Declare Function cAllSubDirectories Lib "t2win-16.dll" (ByVal lpBaseDirectory As String, nDir As Integer) As String
  491. Declare Function cAndToken Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  492. Declare Function cAndTokenIn Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  493. Declare Function cArabicToRoman Lib "t2win-16.dll" (Var As Variant) As String
  494. Declare Sub cArrangeDesktopIcons Lib "t2win-16.dll" ()
  495. Declare Function cArrayOnDisk Lib "t2win-16.dll" (ByVal FILE As String, array() As Any, ByVal GetPut As Integer) As Long
  496. Declare Function cArrayPrm Lib "t2win-16.dll" (array() As Any, nArray As Any) As Integer
  497. Declare Function cArrayStringOnDisk Lib "t2win-16.dll" (ByVal FILE As String, array() As String, ByVal GetPut As Integer, rRecords As Long) As Long
  498. Declare Function cArrayToComboBox Lib "t2win-16.dll" (ByVal hWnd As Integer, array() As String) As Integer
  499. Declare Function cArrayToListBox Lib "t2win-16.dll" (ByVal hWnd As Integer, array() As String) As Integer
  500. Declare Function cB2I Lib "t2win-16.dll" (ByVal Txt As String) As Integer
  501. Declare Function cB2L Lib "t2win-16.dll" (ByVal Txt As String) As Long
  502. Declare Function cBaseConversion Lib "t2win-16.dll" (ByVal Num As String, ByVal RadixIn As Integer, ByVal RadixOut As Integer) As String
  503. Declare Function cBetween Lib "t2win-16.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  504. Declare Function cBigAdd Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  505. Declare Function cBigDiv Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  506. Declare Function cBigMul Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  507. Declare Function cBigNum Lib "t2win-16.dll" (ByVal n1 As String, ByVal op As Integer, ByVal n2 As String) As String
  508. Declare Function cBigSub Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  509. Declare Function cBigFmt Lib "t2win-16.dll" (Num As String, ByVal Length As Integer) As String
  510. Declare Function cBlockCharFromLeft Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  511. Declare Function cBlockCharFromRight Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  512. Declare Sub cCenterWindow Lib "t2win-16.dll" (ByVal hWnd As Integer)
  513. Declare Sub cChangeChars Lib "t2win-16.dll" (Txt As String, CharSet As String, NewCharSet As String)
  514. Declare Sub cChangeCharsUntil Lib "t2win-16.dll" (Txt As String, CharSet As String, NewCharSet As String, nUntil As String)
  515. Declare Sub cChangeTaskName Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Text As String)
  516. Declare Function cChDir Lib "t2win-16.dll" (ByVal lpDir As String) As Integer
  517. Declare Function cChDrive Lib "t2win-16.dll" (ByVal lpDrive As String) As Integer
  518. Declare Function cCheckChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As Integer
  519. Declare Function cCheckMinuteChange Lib "t2win-16.dll" () As Integer
  520. Declare Function cCheckNumericity Lib "t2win-16.dll" (Txt As String) As Integer
  521. Declare Function cCheckSecondChange Lib "t2win-16.dll" () As Integer
  522. Declare Function cCheckTime Lib "t2win-16.dll" (ByVal Hr As Integer, ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  523. Declare Function cCheckWait Lib "t2win-16.dll" (ByVal nTimer As Integer) As Integer
  524. Declare Function cCloseAllEditForm Lib "t2win-16.dll" () As Integer
  525. Declare Function cHashMD5 Lib "t2win-16.dll" (Text As String) As String
  526. Declare Function cCmpFileAttribute Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  527. Declare Function cCmpFileContents Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Sensitivity As Integer) As Integer
  528. Declare Function cCmpFileSize Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  529. Declare Function cCmpFileTime Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  530. Declare Sub cCnvASCIItoEBCDIC Lib "t2win-16.dll" (Txt As String)
  531. Declare Sub cCnvEBCDICtoASCII Lib "t2win-16.dll" (Txt As String)
  532. Declare Function cCombination Lib "t2win-16.dll" (ByVal nItems As Integer, ByVal mTimes As Integer) As Double
  533. Declare Function cCompact Lib "t2win-16.dll" (Txt As String) As String
  534. Declare Function cCompareTypeString Lib "t2win-16.dll" Alias "cTypesCompare" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer) As Integer
  535. Declare Function cCompareStringType Lib "t2win-16.dll" Alias "cTypesCompare" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer) As Integer
  536. Declare Function cCompress Lib "t2win-16.dll" (Txt As String) As String
  537. Declare Function cCompressTab Lib "t2win-16.dll" (Txt As String, ByVal nTab As Integer) As String
  538. Declare Sub cCtl3D Lib "t2win-16.dll" (ByVal Ctl As Control, ByVal LeftTopColor As Long, ByVal RightBottomColor As Long, ByVal Thickness As Integer)
  539. Declare Function cConvert Lib "t2win-16.dll" (Value As String, ByVal MaskFrom As String, ByVal MaskTo As String, ByVal Size As Integer) As String
  540. Declare Function cCount Lib "t2win-16.dll" (Txt As String, Separator As String) As Integer
  541. Declare Function cCountDirectories Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  542. Declare Function cCountFiles Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  543. Declare Function cCountI Lib "t2win-16.dll" (array() As Integer, ByVal Value As Integer) As Long
  544. Declare Function cCountL Lib "t2win-16.dll" (array() As Long, ByVal Value As Long) As Long
  545. Declare Function cCountS Lib "t2win-16.dll" (array() As Single, ByVal Value As Single) As Long
  546. Declare Function cCountD Lib "t2win-16.dll" (array() As Double, ByVal Value As Double) As Long
  547. Declare Function cCplAlpha Lib "t2win-16.dll" (Txt As String) As String
  548. Declare Function cCplDigit Lib "t2win-16.dll" (Txt As String) As String
  549. Declare Function cCreateAndFill Lib "t2win-16.dll" (ByVal Length As Integer, Txt As String) As String
  550. Declare Function cCreateBits Lib "t2win-16.dll" (ByVal nBits As Integer) As String
  551. Declare Function cCurrentTime Lib "t2win-16.dll" () As Integer
  552. Declare Function cCutFile Lib "t2win-16.dll" (ByVal SourceFile As String, ByVal TargetFile1 As String, ByVal TargetFile2 As String, ByVal CutPosition As Long) As Long
  553. Declare Function cCVB Lib "t2win-16.dll" (Value As String) As Integer
  554. Declare Function cCVC Lib "t2win-16.dll" (Value As String) As Currency
  555. Declare Function cCVD Lib "t2win-16.dll" (Value As String) As Double
  556. Declare Function cCVI Lib "t2win-16.dll" (Value As String) As Integer
  557. Declare Function cCVL Lib "t2win-16.dll" (Value As String) As Long
  558. Declare Function cCVS Lib "t2win-16.dll" (Value As String) As Single
  559. Declare Function cDAClear Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY) As Integer
  560. Declare Function cDAClearCol Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  561. Declare Function cDAClearRow Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  562. Declare Function cDAClearSheet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal sheet As Long) As Integer
  563. Declare Sub cDAClose Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal DeleteFile As Integer)
  564. Declare Function cDACreate Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  565. Declare Function cDAGet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  566. Declare Sub cDAGetType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  567. Declare Sub cDAPut Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  568. Declare Sub cDAPutType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  569. Declare Sub cDArGet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  570. Declare Sub cDArGetType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  571. Declare Sub cDArPut Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  572. Declare Sub cDArPutType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  573. Declare Function cDAsClearCol Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long) As Integer
  574. Declare Function cDAsClearRow Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long) As Integer
  575. Declare Sub cDAsGet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  576. Declare Sub cDAsGetType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  577. Declare Sub cDAsPut Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  578. Declare Sub cDAsPutType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  579. Declare Function cDateToScalar Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Long
  580. Declare Function cDayOfWeek Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  581. Declare Function cDayOfYear Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  582. Declare Function cDaysInMonth Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer) As Integer
  583. Declare Sub cDecrI Lib "t2win-16.dll" (Value As Integer)
  584. Declare Sub cDecrL Lib "t2win-16.dll" (Value As Long)
  585. Declare Function cDecrypt Lib "t2win-16.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  586. Declare Function cDeviationD Lib "t2win-16.dll" (array() As Double) As Double
  587. Declare Function cDeviationI Lib "t2win-16.dll" (array() As Integer) As Double
  588. Declare Function cDeviationL Lib "t2win-16.dll" (array() As Long) As Double
  589. Declare Function cDeviationS Lib "t2win-16.dll" (array() As Single) As Double
  590. Declare Sub cDisableCtlRedraw Lib "t2win-16.dll" (Obj As Object)
  591. Declare Sub cDisableFI Lib "t2win-16.dll" (Obj As Object)
  592. Declare Sub cDisableForm Lib "t2win-16.dll" (ByVal hWnd As Integer)
  593. Declare Sub cDisableRedraw Lib "t2win-16.dll" (ByVal hWnd As Integer)
  594. Declare Function cDOSGetMediaID Lib "t2win-16.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  595. Declare Function cDOSGetVolumeLabel Lib "t2win-16.dll" (ByVal nDrive As String) As String
  596. Declare Function cDOSSetMediaID Lib "t2win-16.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  597. Declare Function cDOSSetVolumeLabel Lib "t2win-16.dll" (ByVal nDrive As String, ByVal nVolumeLabel As String) As Integer
  598. Declare Sub cEnableCtlRedraw Lib "t2win-16.dll" (Obj As Object)
  599. Declare Sub cEnableFI Lib "t2win-16.dll" (Obj As Object)
  600. Declare Sub cEnableForm Lib "t2win-16.dll" (ByVal hWnd As Integer)
  601. Declare Sub cEnableRedraw Lib "t2win-16.dll" (ByVal hWnd As Integer)
  602. Declare Function cEncrypt Lib "t2win-16.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  603. Declare Function cEXEnameActiveWindow Lib "t2win-16.dll" () As String
  604. Declare Function cEXEnameWindow Lib "t2win-16.dll" (ByVal hModule As Integer) As String
  605. Declare Function cEXEnameTask Lib "t2win-16.dll" (ByVal nFilename As String) As String
  606. Declare Function cExitWindowsAndExecute Lib "t2win-16.dll" (ByVal lpszExe As String, ByVal lpszParams As String) As Integer
  607. Declare Function cExpandTab Lib "t2win-16.dll" (Txt As String, ByVal nTab As Integer) As String
  608. Declare Function cFileChangeChars Lib "t2win-16.dll" (ByVal nFilename As String, CharSet As String, NewCharSet As String, ByVal nFileTemp As String) As Long
  609. Declare Function cFileCompress Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  610. Declare Function cFileCompressTab Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Integer) As Long
  611. Declare Function cFileCopy Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  612. Declare Function cFileCRC32 Lib "t2win-16.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long
  613. Declare Function cFileDateCreated Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  614. Declare Function cFileDecrypt Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  615. Declare Function cFileDrive Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  616. Declare Function cFileEncrypt Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  617. Declare Function cFileExpand Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  618. Declare Function cFileExpandTab Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Integer) As Long
  619. Declare Function cFileFilter Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  620. Declare Function cFileFilterNot Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  621. Declare Function cFileGetAttrib Lib "t2win-16.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  622. Declare Function cFileLastDateAccess Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  623. Declare Function cFileLastDateModified Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  624. Declare Function cFileLastTimeAccess Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  625. Declare Function cFileLastTimeModified Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  626. Declare Function cFileLineCount Lib "t2win-16.dll" (ByVal lpFilename As String) As Long
  627. Declare Function cFileMerge Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String, ByVal fileTo As String) As Long
  628. Declare Function cFileMergeExt Lib "t2win-16.dll" (FileArray() As String, ByVal TargetFile As String) As Long
  629. Declare Function cFilePathExists Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  630. Declare Function cFileResetAllAttrib Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  631. Declare Function cFileResetArchive Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  632. Declare Function cFileResetFlag Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  633. Declare Function cFileResetHidden Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  634. Declare Function cFileResetReadOnly Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  635. Declare Function cFileResetSystem Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  636. Declare Function cFileSearch Lib "t2win-16.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  637. Declare Function cFileSearchAndReplace Lib "t2win-16.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Replace As String, ByVal nFileTemp As String, ByVal Sensitivity As Integer) As Long
  638. Declare Function cFileSearchCount Lib "t2win-16.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  639. Declare Function cFileSetAllAttrib Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  640. Declare Function cFileSetArchive Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  641. Declare Function cFileSetAttrib Lib "t2win-16.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  642. Declare Function cFileSetFlag Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  643. Declare Function cFileSetHidden Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  644. Declare Function cFileSetReadOnly Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  645. Declare Function cFileSetSystem Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  646. Declare Function cFilesInDirectory Lib "t2win-16.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  647. Declare Function cFilesInDirOnDisk Lib "t2win-16.dll" (ByVal nFile As String, ByVal nFilename As String, ByVal nAttribute As Integer) As Integer
  648. Declare Function cFilesInDirToArray Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nAttribute As Integer, array() As String) As Integer
  649. Declare Function cFilesInfoInDir Lib "t2win-16.dll" (ByVal nFilename As String, FILEINFO As tagFILEINFO, ByVal FirstNext As Integer) As String
  650. Declare Function cFileSize Lib "t2win-16.dll" (ByVal lpFilename As String) As Long
  651. Declare Function cFileSort Lib "t2win-16.dll" (ByVal FileIn As String, ByVal FileOut As String, ByVal SortMethod As Integer, ByVal RecordLength As Long, ByVal KeyOffset As Long, ByVal KeyLength As Long, rRecords As Integer) As Long
  652. Declare Function cFilesSize Lib "t2win-16.dll" (ByVal nFilename As String) As Double
  653. Declare Function cFilesSizeOnDisk Lib "t2win-16.dll" (ByVal nFilename As String) As Double
  654. Declare Function cFilesSlack Lib "t2win-16.dll" (ByVal nFilename As String, Size1 As Double, Size2 As Double) As Integer
  655. Declare Function cFileStatistics Lib "t2win-16.dll" (ByVal nFilename As String, nLines As Long, nWords As Long, nChars As Long) As Long
  656. Declare Function cFileTimeCreated Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  657. Declare Function cFileToComboBox Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  658. Declare Function cFileToListBox Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  659. Declare Function cFileToUpper Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  660. Declare Function cFileToLower Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  661. Declare Sub cFill Lib "t2win-16.dll" (Txt As String, Fill As String)
  662. Declare Function cFillD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double) As Integer
  663. Declare Function cFillI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  664. Declare Function cFillL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long) As Integer
  665. Declare Function cFillS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single) As Integer
  666. Declare Function cFillIncrD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double, ByVal Increment As Double) As Integer
  667. Declare Function cFillIncrI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer, ByVal Increment As Integer) As Integer
  668. Declare Function cFillIncrL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long, ByVal Increment As Long) As Integer
  669. Declare Function cFillIncrS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single, ByVal Increment As Single) As Integer
  670. Declare Function cFilterBlocks Lib "t2win-16.dll" (Txt As String, Delimitor As String) As String
  671. Declare Function cFilterChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As String
  672. Declare Function cFilterFirstChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As String
  673. Declare Function cFilterNotChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As String
  674. Declare Function cFindBitReset Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As Integer
  675. Declare Function cFindBitSet Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As Integer
  676. Declare Function cFindFileInEnv Lib "t2win-16.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As Integer
  677. Declare Function cFindFileInPath Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  678. Declare Function cFloppyInfo Lib "t2win-16.dll" (ByVal nDrive As String, nHeads As Integer, nCylinders As Integer, nSectors As Integer) As Integer
  679. Declare Function cFraction Lib "t2win-16.dll" (ByVal nValue As Double, nNumerator As Double, nDenominator As Double) As Double
  680. Declare Function cFromBinary Lib "t2win-16.dll" (Text As String) As String
  681. Declare Function cFromBinary2 Lib "t2win-16.dll" (Text As String, Bin As String) As String
  682. Declare Function cFromHexa Lib "t2win-16.dll" (Text As String) As String
  683. Declare Function cFromZ9 Lib "t2win-16.dll" (Text As String) As String
  684. Declare Function cFullPath Lib "t2win-16.dll" (ByVal nFilename As String) As String
  685. Declare Function cFXpicture Lib "t2win-16.dll" (ByVal Method As Integer, ByVal hdc1 As Integer, ByVal hbitmap As Integer, ByVal parameter As Integer, ByVal delay As Integer) As Integer
  686. Declare Function cGet Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  687. Declare Function cGetAscTime Lib "t2win-16.dll" (ByVal nLanguage As Integer) As String
  688. Declare Function cGetBit Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As Integer
  689. Declare Function cGetBitB Lib "t2win-16.dll" (ByVal Value As Byte, ByVal Position As Integer) As Integer
  690. Declare Function cGetBitD Lib "t2win-16.dll" (ByVal Value As Double, ByVal Position As Integer) As Integer
  691. Declare Function cGetBitI Lib "t2win-16.dll" (ByVal Value As Integer, ByVal Position As Integer) As Integer
  692. Declare Function cGetBitL Lib "t2win-16.dll" (ByVal Value As Long, ByVal Position As Integer) As Integer
  693. Declare Function cGetBitS Lib "t2win-16.dll" (ByVal Value As Single, ByVal Position As Integer) As Integer
  694. Declare Function cGetBlock Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  695. Declare Function cGetChangeTaskName Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Text As String) As String
  696. Declare Function cGetClassName Lib "t2win-16.dll" (ByVal hWnd As Integer) As String
  697. Declare Function cGetCountry Lib "t2win-16.dll" () As String
  698. Declare Function cGetCountryCode Lib "t2win-16.dll" () As String
  699. Declare Function cGetCtlCaption Lib "t2win-16.dll" (Obj As Object) As String
  700. Declare Function cGetCtlClass Lib "t2win-16.dll" (Obj As Object) As String
  701. Declare Function cGetCtlContainer Lib "t2win-16.dll" (Obj As Object) As String
  702. Declare Function cGetCtlDataField Lib "t2win-16.dll" (Obj As Object) As String
  703. Declare Function cGetCtlForm Lib "t2win-16.dll" (Obj As Object) As String
  704. Declare Function cGetCtlIndex Lib "t2win-16.dll" (Obj As Object) As Integer
  705. Declare Function cGetCtlName Lib "t2win-16.dll" (Obj As Object) As String
  706. Declare Function cGetCtlNameIndex Lib "t2win-16.dll" (Obj As Object) As String
  707. Declare Sub cGetCtlRect Lib "t2win-16.dll" (ByVal Ctl As Control, RECT As Any)
  708. Declare Sub cGetCtlRectTwips Lib "t2win-16.dll" (ByVal Ctl As Control, RECT As Any)
  709. Declare Function cGetCtlTag Lib "t2win-16.dll" (Obj As Object) As String
  710. Declare Function cGetCtlTagSized Lib "t2win-16.dll" (Obj As Object, ByVal nSize As Integer) As String
  711. Declare Function cGetCtlText Lib "t2win-16.dll" (Obj As Object) As String
  712. Declare Function cGetCurrency Lib "t2win-16.dll" () As String
  713. Declare Function cGetCurrentDrive Lib "t2win-16.dll" () As String
  714. Declare Function cGetDateFormat Lib "t2win-16.dll" () As String
  715. Declare Function cGetDateSeparator Lib "t2win-16.dll" () As String
  716. Declare Function cGetDefaultCurrentDir Lib "t2win-16.dll" () As String
  717. Declare Function cGetDefaultPrinter Lib "t2win-16.dll" () As String
  718. Declare Function cGetDevices Lib "t2win-16.dll" () As String
  719. Declare Function cGetDiskClusterSize Lib "t2win-16.dll" (ByVal lpDrive As String) As Double
  720. Declare Function cGetDiskFree Lib "t2win-16.dll" (ByVal lpDrive As String) As Double
  721. Declare Function cGetDiskSpace Lib "t2win-16.dll" (ByVal lpDrive As String) As Double
  722. Declare Function cGetDiskUsed Lib "t2win-16.dll" (ByVal lpDrive As String) As Double
  723. Declare Function cGetDriveCurrentDir Lib "t2win-16.dll" (ByVal lpDrive As String) As String
  724. Declare Function cGetDriveType Lib "t2win-16.dll" (ByVal lpDrive As String) As Integer
  725. Declare Function cGetFileVersion Lib "t2win-16.dll" (ByVal FileName As String, ByVal nFonction As Integer) As String
  726. Declare Function cGetFileVersionInfo Lib "t2win-16.dll" (ByVal FileName As String, FILEVERSIONINFO As Any) As Integer
  727. Declare Function cGetFullNameInEnv Lib "t2win-16.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As String
  728. Declare Function cGetFullNameInPath Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  729. Declare Function cGetHourFormat Lib "t2win-16.dll" () As String
  730. Declare Function cGetHwnd Lib "t2win-16.dll" (Obj As Object) As Integer
  731. Declare Function cGetIn Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  732. Declare Function cGetIni Lib "t2win-16.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) As String
  733. Declare Function cGetInPart Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  734. Declare Function cGetInPartR Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  735. Declare Function cGetInR Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  736. Declare Function cGetLanguage Lib "t2win-16.dll" () As String
  737. Declare Function cGetListSeparator Lib "t2win-16.dll" () As String
  738. Declare Function cGetLongDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  739. Declare Function cGetLongMonth Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  740. Declare Function cGetNetConnection Lib "t2win-16.dll" (ByVal lpDrive As String, ErrCode As Integer) As String
  741. Declare Function cGetPid Lib "t2win-16.dll" () As Integer
  742. Declare Function cGetPrinterPorts Lib "t2win-16.dll" () As String
  743. Declare Function cGetSectionItems Lib "t2win-16.dll" (ByVal Section As String, ByVal InitFile As String, nItems As Integer) As String
  744. Declare Function cGetShortDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  745. Declare Function cGetShortMonth Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  746. Declare Function cGetSmallDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  747. Declare Function cGetSystemDirectory Lib "t2win-16.dll" () As String
  748. Declare Function cGetTaskName Lib "t2win-16.dll" (ByVal hWnd As Integer) As String
  749. Declare Function cGetTimeSeparator Lib "t2win-16.dll" () As String
  750. Declare Function cGetTinyDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  751. Declare Function cGetTinyMonth Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  752. Declare Function cGetVersion Lib "t2win-16.dll" () As Single
  753. Declare Function cGetWindowsDirectory Lib "t2win-16.dll" () As String
  754. Declare Function cGetWinINI Lib "t2win-16.dll" (ByVal Info As Integer) As String
  755. Declare Function cGetWinSection Lib "t2win-16.dll" (ByVal Section As String) As String
  756. Declare Function cGiveBitPalindrome Lib "t2win-16.dll" () As String
  757. Declare Function cGZIPFileCompress Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  758. Declare Function cGZIPFileExpand Lib "t2win-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  759. Declare Function cGZIPStringCompress Lib "t2win-16.dll" (Txt As String) As String
  760. Declare Function cGZIPStringExpand Lib "t2win-16.dll" (Txt As String) As String
  761. Declare Function cH2I Lib "t2win-16.dll" (ByVal Txt As String) As Integer
  762. Declare Function cH2L Lib "t2win-16.dll" (ByVal Txt As String) As Long
  763. Declare Function cHideAllEditForm Lib "t2win-16.dll" () As Integer
  764. Declare Function cHideDebugForm Lib "t2win-16.dll" () As Integer
  765. Declare Function cHourTo Lib "t2win-16.dll" (Txt As String) As Variant
  766. Declare Function cI2B Lib "t2win-16.dll" (ByVal Value As Integer) As String
  767. Declare Function cIfInStr Lib "t2win-16.dll" (Txt As String, Operator As String) As String
  768. Declare Sub cIncrI Lib "t2win-16.dll" (Value As Integer)
  769. Declare Sub cIncrL Lib "t2win-16.dll" (Value As Long)
  770. Declare Function cInsertBlocks Lib "t2win-16.dll" (Txt As String, Insert As String) As String
  771. Declare Function cInsertBlocksBy Lib "t2win-16.dll" (Txt As String, Insert As String, Delimitor As String) As String
  772. Declare Function cInsertByMask Lib "t2win-16.dll" (Txt As String, Mask As String, Insert As String) As String
  773. Declare Function cInsertChars Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, Insert As String) As String
  774. Declare Function cIntoBalance Lib "t2win-16.dll" (Var As Variant) As String
  775. Declare Function cIntoBalanceFill Lib "t2win-16.dll" (Var As Variant) As String
  776. Declare Function cIntoDate Lib "t2win-16.dll" (ByVal nDate As Long) As String
  777. Declare Function cIntoDateFill Lib "t2win-16.dll" (ByVal nDate As Long) As String
  778. Declare Function cIntoDateNull Lib "t2win-16.dll" (ByVal nDate As Long) As String
  779. Declare Function cIntoFixHour Lib "t2win-16.dll" (Var As Variant, ByVal Length As Integer, ByVal fillZero As Integer, ByVal CentiΦme As Integer) As String
  780. Declare Function cIntoHour Lib "t2win-16.dll" (Var As Variant) As String
  781. Declare Function cIntoVarHour Lib "t2win-16.dll" (Var As Variant) As String
  782. Declare Function cIsAlnum Lib "t2win-16.dll" (Txt As String) As Integer
  783. Declare Function cIsAlpha Lib "t2win-16.dll" (Txt As String) As Integer
  784. Declare Function cIsAscii Lib "t2win-16.dll" (Txt As String) As Integer
  785. Declare Function cIsBalance Lib "t2win-16.dll" (ByVal nHour As Long, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  786. Declare Function cIsBitPalindrome Lib "t2win-16.dll" (Txt As String) As Integer
  787. Declare Function cIsCsym Lib "t2win-16.dll" (Txt As String) As Integer
  788. Declare Function cIsCsymf Lib "t2win-16.dll" (Txt As String) As Integer
  789. Declare Function cIsDate Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  790. Declare Function cIsDigit Lib "t2win-16.dll" (Txt As String) As Integer
  791. Declare Function cIsFileArchive Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  792. Declare Function cIsFileEmpty Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  793. Declare Function cIsFileFlag Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  794. Declare Function cIsFileHidden Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  795. Declare Function cIsFileNormal Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  796. Declare Function cIsFilenameValid Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  797. Declare Function cIsFileReadOnly Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  798. Declare Function cIsFileSubDir Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  799. Declare Function cIsFileSystem Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  800. Declare Function cIsFileVolId Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  801. Declare Function cIsFormEnabled Lib "t2win-16.dll" (ByVal hWnd As Integer) As Integer
  802. Declare Function cIsHour Lib "t2win-16.dll" (ByVal nHour As Integer, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  803. Declare Function cIsISBN Lib "t2win-16.dll" (Txt As String) As Integer
  804. Declare Function cIsLeapYear Lib "t2win-16.dll" (ByVal nYear As Integer) As Integer
  805. Declare Function cIsLower Lib "t2win-16.dll" (Txt As String) As Integer
  806. Declare Function cIsPalindrome Lib "t2win-16.dll" (Txt As String) As Integer
  807. Declare Function cIsPunct Lib "t2win-16.dll" (Txt As String) As Integer
  808. Declare Function cIsSerial Lib "t2win-16.dll" (ByVal File1 As String) As Integer
  809. Declare Function cIsSpace Lib "t2win-16.dll" (Txt As String) As Integer
  810. Declare Function cIsUpper Lib "t2win-16.dll" (Txt As String) As Integer
  811. Declare Function cIsXdigit Lib "t2win-16.dll" (Txt As String) As Integer
  812. Declare Function cKillDir Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  813. Declare Function cKillDirFilesAll Lib "t2win-16.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  814. Declare Function cKillDirs Lib "t2win-16.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  815. Declare Function cKillFile Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  816. Declare Function cKillFileAll Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  817. Declare Function cKillFiles Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  818. Declare Function cKillFilesAll Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  819. Declare Function cL2B Lib "t2win-16.dll" (ByVal Value As Long) As String
  820. Declare Function cLngMsgBox Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String) As Integer
  821. Declare Sub cLngBoxMsg Lib "t2win-16.dll" Alias "cLngMsgBox" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String)
  822. Declare Function cLngInpBox Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Title As String, ByVal Default As String) As String
  823. Declare Sub cLngSysMenu Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal hWnd As Integer)
  824. Declare Function cLrc Lib "t2win-16.dll" (Txt As String) As String
  825. Declare Function cMakeDir Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  826. Declare Function cMakeMultipleDir Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  827. Declare Function cMakePath Lib "t2win-16.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFilename As String, ByVal Ext As String) As String
  828. Declare Sub cMatrixAdd Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  829. Declare Function cMatrixCoFactor Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  830. Declare Function cMatrixCompare Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  831. Declare Sub cMatrixCopy Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  832. Declare Function cMatrixDet Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double) As Double
  833. Declare Function cMatrixFill Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal nInit As Integer) As Integer
  834. Declare Function cMatrixInv Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  835. Declare Function cMatrixMinor Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  836. Declare Sub cMatrixMul Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  837. Declare Sub cMatrixSub Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  838. Declare Function cMatrixSymToeplitz Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  839. Declare Sub cMatrixTranspose Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  840. Declare Function cMax Lib "t2win-16.dll" (Var1 As Variant, Var2 As Variant) As Variant
  841. Declare Function cMaxD Lib "t2win-16.dll" (array() As Double) As Double
  842. Declare Function cMaxI Lib "t2win-16.dll" (array() As Integer) As Integer
  843. Declare Function cMaxL Lib "t2win-16.dll" (array() As Long) As Long
  844. Declare Function cMaxS Lib "t2win-16.dll" (array() As Single) As Single
  845. Declare Function cMaxNotXD Lib "t2win-16.dll" (array() As Double, ByVal ValueNotToReturn As Double) As Double
  846. Declare Function cMaxNotXI Lib "t2win-16.dll" (array() As Integer, ByVal ValueNotToReturn As Integer) As Integer
  847. Declare Function cMaxNotXL Lib "t2win-16.dll" (array() As Long, ByVal ValueNotToReturn As Long) As Long
  848. Declare Function cMaxNotXS Lib "t2win-16.dll" (array() As Single, ByVal ValueNotToReturn As Single) As Single
  849. Declare Function cMDAClear Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY) As Integer
  850. Declare Function cMDAClearCol Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  851. Declare Function cMDAClearRow Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  852. Declare Function cMDAClearSheet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal sheet As Long) As Integer
  853. Declare Sub cMDAClose Lib "t2win-16.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal DeleteFile As Integer)
  854. Declare Function cMDACreate Lib "t2win-16.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  855. Declare Function cMDAGet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  856. Declare Sub cMDAGetType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  857. Declare Sub cMDAPut Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  858. Declare Sub cMDAPutType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  859. Declare Sub cMDArGet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  860. Declare Sub cMDArGetType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  861. Declare Sub cMDArPut Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  862. Declare Sub cMDArPutType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  863. Declare Function cMDAsClearCol Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long) As Integer
  864. Declare Function cMDAsClearRow Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long) As Integer
  865. Declare Sub cMDAsGet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  866. Declare Sub cMDAsGetType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  867. Declare Sub cMDAsPut Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  868. Declare Sub cMDAsPutType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  869. Declare Function cMeanD Lib "t2win-16.dll" (array() As Double) As Double
  870. Declare Function cMeanI Lib "t2win-16.dll" (array() As Integer) As Double
  871. Declare Function cMeanL Lib "t2win-16.dll" (array() As Long) As Double
  872. Declare Function cMeanS Lib "t2win-16.dll" (array() As Single) As Double
  873. Declare Function cMin Lib "t2win-16.dll" (Var1 As Variant, Var2 As Variant) As Variant
  874. Declare Function cMinD Lib "t2win-16.dll" (array() As Double) As Double
  875. Declare Function cMinI Lib "t2win-16.dll" (array() As Integer) As Integer
  876. Declare Function cMinL Lib "t2win-16.dll" (array() As Long) As Long
  877. Declare Function cMinS Lib "t2win-16.dll" (array() As Single) As Single
  878. Declare Function cMinNotXD Lib "t2win-16.dll" (array() As Double, ByVal ValueNotToReturn As Double) As Double
  879. Declare Function cMinNotXI Lib "t2win-16.dll" (array() As Integer, ByVal ValueNotToReturn As Integer) As Integer
  880. Declare Function cMinNotXL Lib "t2win-16.dll" (array() As Long, ByVal ValueNotToReturn As Long) As Long
  881. Declare Function cMinNotXS Lib "t2win-16.dll" (array() As Single, ByVal ValueNotToReturn As Single) As Single
  882. Declare Function cMixChars Lib "t2win-16.dll" (Txt As String) As String
  883. Declare Function cMKB Lib "t2win-16.dll" (ByVal Value As Integer) As String
  884. Declare Function cMKC Lib "t2win-16.dll" (ByVal Value As Currency) As String
  885. Declare Function cMKD Lib "t2win-16.dll" (ByVal Value As Double) As String
  886. Declare Function cMKI Lib "t2win-16.dll" (ByVal Value As Integer) As String
  887. Declare Function cMKL Lib "t2win-16.dll" (ByVal Value As Long) As String
  888. Declare Function cMKN Lib "t2win-16.dll" (ByVal Value As String) As String
  889. Declare Function cMKS Lib "t2win-16.dll" (ByVal Value As Single) As String
  890. Declare Function cMod10 Lib "t2win-16.dll" (ByVal Text As String) As Integer
  891. Declare Function cMod10R Lib "t2win-16.dll" (ByVal Text As String) As Integer
  892. Declare Function cMod11 Lib "t2win-16.dll" (ByVal Text As String) As Integer
  893. Declare Function cMod11R Lib "t2win-16.dll" (ByVal Text As String) As Integer
  894. Declare Function cMod137 Lib "t2win-16.dll" (ByVal Text As String) As Integer
  895. Declare Function cMod137R Lib "t2win-16.dll" (ByVal Text As String) As Integer
  896. Declare Function cModuleFind Lib "t2win-16.dll" (MODULEENTRY As Any, ByVal ModuleName As String) As Integer
  897. Declare Function cModules Lib "t2win-16.dll" (MODULEENTRY As Any, ByVal FirstNext As Integer) As Integer
  898. Declare Function cMorse Lib "t2win-16.dll" (ByVal morse As String) As String
  899. Declare Function cNexthWnd Lib "t2win-16.dll" (ByVal hWnd As Integer) As Integer
  900. Declare Function cNumDigit Lib "t2win-16.dll" (Txt As String) As Integer
  901. Declare Function cOneCharFromLeft Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  902. Declare Function cOneCharFromRight Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  903. Declare Function cOrToken Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  904. Declare Function cOrTokenIn Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  905. Declare Function cPatternMatch Lib "t2win-16.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  906. Declare Function cPatternExtMatch Lib "t2win-16.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  907. Declare Function cProperName Lib "t2win-16.dll" (Txt As String) As String
  908. Declare Function cProperName2 Lib "t2win-16.dll" (Txt As String, ByVal TokenToUse As String, ByVal Options As Integer) As String
  909. Declare Sub cPutIni Lib "t2win-16.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String)
  910. Declare Function cRcsCountFileDir Lib "t2win-16.dll" (ByVal FileOrDir As Integer, ByVal FirstFileOrDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Integer
  911. Declare Function cRcsFilesSize Lib "t2win-16.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  912. Declare Function cRcsFilesSizeOnDisk Lib "t2win-16.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  913. Declare Function cRcsFilesSlack Lib "t2win-16.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer, Size1 As Double, Size2 As Double) As Integer
  914. Declare Function cReadBasisTimer Lib "t2win-16.dll" () As Long
  915. Declare Function cReadCtlLanguage Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  916. Declare Function cReadCtlLanguageExt Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  917. Declare Function cReadTimer Lib "t2win-16.dll" (ByVal nTimer As Integer) As Long
  918. Declare Function cRebootSystem Lib "t2win-16.dll" () As Integer
  919. Declare Function cRegistrationKey Lib "t2win-16.dll" (ByVal RegString As String, ByVal RegCode As Long) As Long
  920. Declare Function cRemoveBlockChar Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  921. Declare Function cRemoveOneChar Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  922. Declare Function cRenameFile Lib "t2win-16.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer
  923. Declare Sub cResetCapture Lib "t2win-16.dll" ()
  924. Declare Function cResizeString Lib "t2win-16.dll" (Txt As String, ByVal NewLength As Integer) As String
  925. Declare Function cResizeStringAndFill Lib "t2win-16.dll" (Txt As String, ByVal NewLength As Integer, Fill As String) As String
  926. Declare Function cRestartWindows Lib "t2win-16.dll" () As Integer
  927. Declare Function cReverse Lib "t2win-16.dll" (Txt As String) As String
  928. Declare Sub cReverseAllBits Lib "t2win-16.dll" (Txt As String)
  929. Declare Sub cReverseAllBitsByChar Lib "t2win-16.dll" (Txt As String)
  930. Declare Function cReverseSortD Lib "t2win-16.dll" (array() As Double) As Integer
  931. Declare Function cReverseSortI Lib "t2win-16.dll" (array() As Integer) As Integer
  932. Declare Function cReverseSortL Lib "t2win-16.dll" (array() As Long) As Integer
  933. Declare Function cReverseSortS Lib "t2win-16.dll" (array() As Single) As Integer
  934. Declare Function cReverseSortStr Lib "t2win-16.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  935. Declare Sub cRndInit Lib "t2win-16.dll" (ByVal nRnd As Long)
  936. Declare Function cRnd Lib "t2win-16.dll" () As Double
  937. Declare Function cRndD Lib "t2win-16.dll" () As Double
  938. Declare Function cRndI Lib "t2win-16.dll" () As Integer
  939. Declare Function cRndL Lib "t2win-16.dll" () As Long
  940. Declare Function cRndS Lib "t2win-16.dll" () As Single
  941. Declare Function cRomanToArabic Lib "t2win-16.dll" (Txt As String) As Variant
  942. Declare Function cRUBYdecrypt Lib "t2win-16.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  943. Declare Function cRUBYencrypt Lib "t2win-16.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  944. Declare Function cRUBYdecryptFile Lib "t2win-16.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  945. Declare Function cRUBYencryptFile Lib "t2win-16.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  946. Declare Function cSaveCtlLanguage Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  947. Declare Function cSaveCtlLanguageExt Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  948. Declare Sub cScalarToDate Lib "t2win-16.dll" (ByVal Scalar As Long, nYear As Integer, nMonth As Integer, nDay As Integer)
  949. Declare Sub cScalarToTime Lib "t2win-16.dll" (ByVal Scalar As Long, nHour As Integer, nMin As Integer, nSec As Integer)
  950. Declare Function cScrollL Lib "t2win-16.dll" (Txt As String) As String
  951. Declare Function cScrollR Lib "t2win-16.dll" (Txt As String) As String
  952. Declare Function cSearchI Lib "t2win-16.dll" (array() As Integer, ByVal Value As Integer) As Long
  953. Declare Function cSearchL Lib "t2win-16.dll" (array() As Long, ByVal Value As Long) As Long
  954. Declare Function cSearchS Lib "t2win-16.dll" (array() As Single, ByVal Value As Single) As Long
  955. Declare Function cSearchD Lib "t2win-16.dll" (array() As Double, ByVal Value As Double) As Long
  956. Declare Sub cSetAllBits Lib "t2win-16.dll" (Txt As String, ByVal Value As Integer)
  957. Declare Sub cSetBit Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, ByVal Value As Integer)
  958. Declare Sub cSetBitToFalse Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer)
  959. Declare Sub cSetBitToTrue Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer)
  960. Declare Sub cSetBitB Lib "t2win-16.dll" (Value As Byte, ByVal Position As Integer, ByVal BitValue As Integer)
  961. Declare Sub cSetBitD Lib "t2win-16.dll" (Value As Double, ByVal Position As Integer, ByVal BitValue As Integer)
  962. Declare Sub cSetBitI Lib "t2win-16.dll" (Value As Integer, ByVal Position As Integer, ByVal BitValue As Integer)
  963. Declare Sub cSetBitL Lib "t2win-16.dll" (Value As Long, ByVal Position As Integer, ByVal BitValue As Integer)
  964. Declare Sub cSetBitS Lib "t2win-16.dll" (Value As Single, ByVal Position As Integer, ByVal BitValue As Integer)
  965. Declare Sub cSetCapture Lib "t2win-16.dll" (ByVal hWnd As Integer)
  966. Declare Sub cSetCtlCaption Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  967. Declare Sub cSetCtlDataField Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  968. Declare Sub cSetCtlTag Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  969. Declare Sub cSetCtlText Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  970. Declare Function cSetD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double) As Integer
  971. Declare Sub cSetDefaultSeparator Lib "t2win-16.dll" (Separator As String)
  972. Declare Function cSetHandleCount Lib "t2win-16.dll" (ByVal nHandle As Integer) As Integer
  973. Declare Function cSetI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  974. Declare Function cSetL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long) As Integer
  975. Declare Function cSerialGet Lib "t2win-16.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer
  976. Declare Function cSerialInc Lib "t2win-16.dll" (ByVal FILE As String, ByVal Increment As Long) As Integer
  977. Declare Function cSerialPut Lib "t2win-16.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer
  978. Declare Function cSerialRmv Lib "t2win-16.dll" (ByVal FILE As String) As Integer
  979. Declare Function cSetS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single) As Integer
  980. Declare Sub cSetWait Lib "t2win-16.dll" (ByVal nTimer As Integer, ByVal nValue As Long)
  981. Declare Function cSgn Lib "t2win-16.dll" (ByVal Value As Integer) As Integer
  982. Declare Sub cShowWindow Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Method As Integer, ByVal interval As Integer)
  983. Declare Function cSleep Lib "t2win-16.dll" (ByVal delay As Long) As Integer
  984. Declare Function cSortD Lib "t2win-16.dll" (array() As Double) As Integer
  985. Declare Function cSortI Lib "t2win-16.dll" (array() As Integer) As Integer
  986. Declare Function cSortL Lib "t2win-16.dll" (array() As Long) As Integer
  987. Declare Function cSortS Lib "t2win-16.dll" (array() As Single) As Integer
  988. Declare Function cSortStr Lib "t2win-16.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  989. Declare Function cSpellMoney Lib "t2win-16.dll" (ByVal Value As Double, ByVal Units As String, ByVal Cents As String) As String
  990. Declare Function cSplitFile Lib "t2win-16.dll" (ByVal SourceFile As String, ByVal TargetFiles As String, ByVal PartSize As Long) As Long
  991. Declare Function cSplitPath Lib "t2win-16.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer
  992. Declare Sub cStartBasisTimer Lib "t2win-16.dll" ()
  993. Declare Sub cStartTimer Lib "t2win-16.dll" (ByVal nTimer As Integer)
  994. Declare Sub cStartWait Lib "t2win-16.dll" (ByVal nTimer As Integer)
  995. Declare Sub cStopBasisTimer Lib "t2win-16.dll" ()
  996. Declare Function cStopTimer Lib "t2win-16.dll" (ByVal nTimer As Integer) As Long
  997. Declare Function cStringCompress Lib "t2win-16.dll" (Txt As String) As String
  998. Declare Function cStringCRC32 Lib "t2win-16.dll" (Txt As String) As Long
  999. Declare Function cStringExpand Lib "t2win-16.dll" (Txt As String) As String
  1000. Declare Function cStringSAR Lib "t2win-16.dll" (ByVal Txt As String, ByVal Search As String, ByVal Replace As String, ByVal Sensitivity As Integer) As String
  1001. Declare Sub cStringToType Lib "t2win-16.dll" Alias "cTypesCopy" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer)
  1002. Declare Function cSubDirectory Lib "t2win-16.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  1003. Declare Function cSumD Lib "t2win-16.dll" (array() As Double) As Double
  1004. Declare Function cSumI Lib "t2win-16.dll" (array() As Integer) As Double
  1005. Declare Function cSumL Lib "t2win-16.dll" (array() As Long) As Double
  1006. Declare Function cSumS Lib "t2win-16.dll" (array() As Single) As Double
  1007. Declare Sub cSysMenuChange Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Position As Integer, ByVal NewMessage As String)
  1008. Declare Sub cSwapD Lib "t2win-16.dll" (swap1 As Double, swap2 As Double)
  1009. Declare Sub cSwapI Lib "t2win-16.dll" (swap1 As Integer, swap2 As Integer)
  1010. Declare Sub cSwapL Lib "t2win-16.dll" (swap1 As Long, swap2 As Long)
  1011. Declare Sub cSwapS Lib "t2win-16.dll" (swap1 As Single, swap2 As Single)
  1012. Declare Sub cSwapStr Lib "t2win-16.dll" (swap1 As String, swap2 As String)
  1013. Declare Function cTaskFind Lib "t2win-16.dll" (TASKENTRY As Any, ByVal hTask As Integer) As Integer
  1014. Declare Function cTasks Lib "t2win-16.dll" (TASKENTRY As Any, ByVal FirstNext As Integer) As Integer
  1015. Declare Function cTimeBetween Lib "t2win-16.dll" (ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  1016. Declare Function cTimerClose Lib "t2win-16.dll" (ByVal TimerHandle As Integer) As Integer
  1017. Declare Function cTimerOpen Lib "t2win-16.dll" () As Integer
  1018. Declare Function cTimerRead Lib "t2win-16.dll" (ByVal TimerHandle As Integer) As Long
  1019. Declare Function cTimerStart Lib "t2win-16.dll" (ByVal TimerHandle As Integer) As Integer
  1020. Declare Function cTimeToScalar Lib "t2win-16.dll" (ByVal nHour As Integer, ByVal nMin As Integer, ByVal nSec As Integer) As Long
  1021. Declare Function cToBinary Lib "t2win-16.dll" (Text As String) As String
  1022. Declare Function cToBinary2 Lib "t2win-16.dll" (Text As String, Bin As String) As String
  1023. Declare Sub cToggleAllBits Lib "t2win-16.dll" (Txt As String)
  1024. Declare Sub cToggleBit Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer)
  1025. Declare Function cToHexa Lib "t2win-16.dll" (Text As String) As String
  1026. Declare Function cTokenIn Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  1027. Declare Function cToZ9 Lib "t2win-16.dll" (Text As String) As String
  1028. Declare Function cTrueBetween Lib "t2win-16.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  1029. Declare Function cTruncatePath Lib "t2win-16.dll" (ByVal nFilename As String, ByVal NewLength As Integer) As String
  1030. Declare Sub cTypeClear Lib "t2win-16.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer)
  1031. Declare Function cTypeMid Lib "t2win-16.dll" (TypeSrc As Any, ByVal offset As Integer, ByVal Length As Integer) As String
  1032. Declare Function cTypesCompare Lib "t2win-16.dll" (Type1 As Any, Type2 As Any, ByVal lenType1 As Integer) As Integer
  1033. Declare Sub cTypesCopy Lib "t2win-16.dll" (TypeSrc As Any, TypeDst As Any, ByVal lenTypeSrc As Integer)
  1034. Declare Function cTypeTransfert Lib "t2win-16.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer) As String
  1035. Declare Sub cTypeToString Lib "t2win-16.dll" Alias "cTypesCopy" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer)
  1036. Declare Function cUncompact Lib "t2win-16.dll" (Txt As String) As String
  1037. Declare Function cUnHideAllEditForm Lib "t2win-16.dll" () As Integer
  1038. Declare Function cUnHideDebugForm Lib "t2win-16.dll" () As Integer
  1039. Declare Function cUniqueFileName Lib "t2win-16.dll" (Txt As String) As String
  1040. Declare Sub cUnloadDLL Lib "t2win-16.dll" (ByVal hMod As Integer)
  1041. Declare Function cWalkThruWindow Lib "t2win-16.dll" (Class As String, Caption As String, OwnerHwnd As Integer, OwnerClass As String, OwnerCaption As String, ByVal FirstNext As Integer) As Integer
  1042. Declare Function cWeekOfYear Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  1043.  
  1044. Declare Sub cPushID Lib "t2win-16.dll" (IDArray As Integer, ByVal nID As Integer)
  1045. Declare Sub cPopID Lib "t2win-16.dll" (IDArray As Integer, ByVal nID As Integer)
  1046. Declare Sub cPopLastID Lib "t2win-16.dll" (IDArray As Integer)
  1047. Declare Function cGetID Lib "t2win-16.dll" (IDArray As Integer, ByVal nPosition As Integer) As Integer
  1048. Declare Sub cClearID Lib "t2win-16.dll" (IDArray As Integer)
  1049.  
  1050. ' File I/O, direct routines issued from C functionnalities
  1051. Declare Function cFopen Lib "t2win-16.dll" (ByVal FILE As String, ByVal Mode As String) As Long
  1052. Declare Function cFclose Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  1053. Declare Function cFgetc Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  1054. Declare Function cFputc Lib "t2win-16.dll" (ByVal char As Integer, ByVal IOstream As Long) As Integer
  1055. Declare Function cFputs Lib "t2win-16.dll" (ByVal Txt As String, ByVal IOstream As Long) As Integer
  1056. Declare Function cFgets Lib "t2win-16.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  1057. Declare Function cFwrite Lib "t2win-16.dll" (Txt As String, ByVal IOstream As Long) As Integer
  1058. Declare Function cFread Lib "t2win-16.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  1059. Declare Function cFcloseall Lib "t2win-16.dll" () As Integer
  1060. Declare Function cFflush Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  1061. Declare Function cFflushall Lib "t2win-16.dll" () As Integer
  1062. Declare Function cFeof Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  1063. Declare Function cFerror Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  1064. Declare Sub cFclearerr Lib "t2win-16.dll" (ByVal IOstream As Long)
  1065. Declare Function cFseek Lib "t2win-16.dll" (ByVal IOstream As Long, ByVal offset As Long, ByVal origin As Integer) As Integer
  1066. Declare Function cFtell Lib "t2win-16.dll" (ByVal IOstream As Long) As Long
  1067. Declare Sub cFrewind Lib "t2win-16.dll" (ByVal IOstream As Long)
  1068.  
  1069. ' Functions for calculating interest rate
  1070. Declare Function cAtoF Lib "t2win-16.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  1071. Declare Function cAtoFC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  1072. Declare Function cAtoP Lib "t2win-16.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  1073. Declare Function cAtoPC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  1074. Declare Function cFtoA Lib "t2win-16.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  1075. Declare Function cFtoAC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  1076. Declare Function cFtoP Lib "t2win-16.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  1077. Declare Function cFtoPC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  1078. Declare Function cPtoA Lib "t2win-16.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  1079. Declare Function cPtoAC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  1080. Declare Function cPtoF Lib "t2win-16.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  1081. Declare Function cPtoFC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  1082.  
  1083. ' Functions for calculating 2-D geometry
  1084. Declare Sub cV2Add Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1085. Declare Sub cV2Sub Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1086. Declare Sub cV2Combine Lib "t2win-16.dll" (u As tagVECTOR2, ByVal c1 As Double, v As tagVECTOR2, ByVal c2 As Double, w As tagVECTOR2)
  1087. Declare Sub cV2Copy Lib "t2win-16.dll" (u As tagVECTOR2, w As tagVECTOR2)
  1088. Declare Function cV2Dot Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2) As Double
  1089. Declare Function cV2Length Lib "t2win-16.dll" (u As tagVECTOR2) As Double
  1090. Declare Function cV2LengthSquared Lib "t2win-16.dll" (u As tagVECTOR2) As Double
  1091. Declare Sub cV2LinearIp Lib "t2win-16.dll" (lo As tagVECTOR2, hi As tagVECTOR2, ByVal alpha As Double, w As tagVECTOR2)
  1092. Declare Sub cV2Mul Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1093. Declare Sub cV2Neg Lib "t2win-16.dll" (u As tagVECTOR2)
  1094. Declare Sub cV2Normalized Lib "t2win-16.dll" (u As tagVECTOR2)
  1095. Declare Sub cV2Ortho Lib "t2win-16.dll" (u As tagVECTOR2, w As tagVECTOR2)
  1096. Declare Sub cV2ScaledNewLength Lib "t2win-16.dll" (u As tagVECTOR2, ByVal newlen As Double)
  1097. Declare Function cV2SegmentLength Lib "t2win-16.dll" (p As tagVECTOR2, q As tagVECTOR2) As Double
  1098.  
  1099. ' Functions for calculating 3-D geometry
  1100. Declare Sub cV3Add Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1101. Declare Sub cV3Sub Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1102. Declare Sub cV3Combine Lib "t2win-16.dll" (u As tagVECTOR3, ByVal c1 As Double, v As tagVECTOR3, ByVal c2 As Double, w As tagVECTOR3)
  1103. Declare Sub cV3Copy Lib "t2win-16.dll" (u As tagVECTOR3, w As tagVECTOR3)
  1104. Declare Sub cV3Cross Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1105. Declare Function cV3Dot Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3) As Double
  1106. Declare Function cV3Length Lib "t2win-16.dll" (u As tagVECTOR3) As Double
  1107. Declare Function cV3LengthSquared Lib "t2win-16.dll" (u As tagVECTOR3) As Double
  1108. Declare Sub cV3LinearIp Lib "t2win-16.dll" (lo As tagVECTOR3, hi As tagVECTOR3, ByVal alpha As Double, w As tagVECTOR3)
  1109. Declare Sub cV3Mul Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1110. Declare Sub cV3Neg Lib "t2win-16.dll" (u As tagVECTOR3)
  1111. Declare Sub cV3Normalized Lib "t2win-16.dll" (u As tagVECTOR3)
  1112. Declare Sub cV3ScaledNewLength Lib "t2win-16.dll" (u As tagVECTOR3, ByVal newlen As Double)
  1113. Declare Function cV3SegmentLength Lib "t2win-16.dll" (p As tagVECTOR3, q As tagVECTOR3) As Double
  1114.  
  1115. ' Functions for Huge String management
  1116. Declare Function cHugeStrAdd Lib "t2win-16.dll" (ByVal hsHandle As Integer, hsText As String) As Integer
  1117. Declare Function cHugeStrAddress Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1118. Declare Function cHugeStrAppend Lib "t2win-16.dll" (ByVal hsHandle As Integer, hsText As String) As Integer
  1119. Declare Function cHugeStrBlocks Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1120. Declare Function cHugeStrClear Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Integer
  1121. Declare Function cHugeStrCreate Lib "t2win-16.dll" (ByVal hsSize As Long) As Integer
  1122. Declare Function cHugeStrFree Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Integer
  1123. Declare Function cHugeStrGetNP Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1124. Declare Function cHugeStrGetWP Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1125. Declare Function cHugeStrLength Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1126. Declare Function cHugeStrMid Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsStart As Long, ByVal hsLength As Long) As String
  1127. Declare Function cHugeStrNext Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsNext As Long) As String
  1128. Declare Function cHugeStrOnDisk Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  1129. Declare Function cHugeStrRead Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsBlock As Long) As String
  1130. Declare Function cHugeStrSetNP Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer
  1131. Declare Function cHugeStrSetWP Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer
  1132. Declare Function cHugeStrSize Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1133.  
  1134. ' Functions for Huge Memory Array management
  1135. Declare Function cHMAClear Lib "t2win-16.dll" (HMA As tagHMA) As Integer
  1136. Declare Function cHMAClearCol Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, ByVal sheet As Long) As Integer
  1137. Declare Function cHMAClearRow Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal sheet As Long) As Integer
  1138. Declare Function cHMAClearSheet Lib "t2win-16.dll" (HMA As tagHMA, ByVal sheet As Long) As Integer
  1139. Declare Function cHMACreate Lib "t2win-16.dll" (HMA As tagHMA) As Integer
  1140. Declare Function cHMAFree Lib "t2win-16.dll" (HMA As tagHMA) As Integer
  1141. Declare Function cHMAGet Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  1142. Declare Sub cHMAGetType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  1143. Declare Sub cHMAPut Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  1144. Declare Sub cHMAPutType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  1145. Declare Sub cHMArGet Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  1146. Declare Sub cHMArGetType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  1147. Declare Sub cHMArPut Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  1148. Declare Sub cHMArPutType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  1149. Declare Sub cHMAsGet Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  1150. Declare Sub cHMAsGetType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  1151. Declare Sub cHMAsPut Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  1152. Declare Sub cHMAsPutType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  1153. Declare Function cHMAsClearCol Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long) As Integer
  1154. Declare Function cHMAsClearRow Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long) As Integer
  1155. Declare Function cHMAOnDisk Lib "t2win-16.dll" (HMA As tagHMA, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  1156.  
  1157. ' functions for accessing OCX and VBX custom controls
  1158. Declare Sub cObjectMethodByPos Lib "t2win-16.dll" (Obj As Object, ByVal Property As Integer, lpPut As Variant)
  1159. Declare Function cObjectGetPropertyByPos Lib "t2win-16.dll" (Obj As Object, ByVal Property As Integer) As Variant
  1160. Declare Sub cObjectPutPropertyByPos Lib "t2win-16.dll" (Obj As Object, ByVal Property As Integer, lpPut As Variant)
  1161. Declare Sub cObjectMethodByName Lib "t2win-16.dll" (Obj As Object, ByVal Property As String, lpPut As Variant)
  1162. Declare Function cObjectGetPropertyByName Lib "t2win-16.dll" (Obj As Object, ByVal Property As String) As Variant
  1163. Declare Sub cObjectPutPropertyByName Lib "t2win-16.dll" (Obj As Object, ByVal Property As String, lpPut As Variant)
  1164.  
  1165.